#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: File_Find.pl
#
#        USAGE: ./File_Find.pl  
#
#  DESCRIPTION: 
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: YOUR NAME (), 
# ORGANIZATION: 
#      VERSION: 1.0
#      CREATED: 07/31/2013 03:09:16 AM
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;
use File::Find;

my $file = "File_Find.pl";
my $path = ".";

find(\&process, $path);

sub process {
	print $File::Find::dir, "$_\n" if(/$file/); 
}

exit 0;
